home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{20BB8A98-5A0A-11D2-A460-008029E79FA1}#6.0#0"; "HOLDSIZE.OCX"
- Begin VB.Form Example
- Caption = "Form1"
- ClientHeight = 2910
- ClientLeft = 3645
- ClientTop = 4335
- ClientWidth = 3960
- LinkTopic = "Form1"
- ScaleHeight = 194
- ScaleMode = 3 'Pixel
- ScaleWidth = 264
- StartUpPosition = 3 'Windows Default
- Begin HoldSize.HoldSizeControl HoldSize
- Left = 2400
- Top = 480
- _ExtentX = 979
- _ExtentY = 979
- MinimumWidth = 200
- MaximumWidth = 200
- MinimumHeight = 200
- MaximumHeight = 200
- End
- Begin VB.CommandButton Command1
- Caption = "Toggle Hold Size"
- Height = 375
- Left = 240
- TabIndex = 0
- Top = 480
- Width = 1455
- End
- Attribute VB_Name = "Example"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- ' Toggle the current hold size activation.
- HoldSize.Toggle
- ' Send a message box to show what the current state is.
- MsgBox HoldSize.IsActive
- End Sub
-